home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_7000.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  7.8 KB  |  465 lines
  1. grestore}B
  2.  
  3. end Key_Map_Dict begin _char show end
  4.  
  5. _minx _suboffset _miny _adddescent _m
  6.  
  7. _ptsize dup 1.25 mul _minx _miny _ptsize 1.25 mul add rrectpath clip newpath
  8.  
  9. gsave
  10.  
  11. grestore
  12.  
  13. 0 _smallsize 1.25 mul neg _m _MapWid show
  14.  
  15. _minx _ptsize add _miny translate 90 rotate
  16.  
  17. grestore
  18.  
  19. 0 _smallsize .4 mul _m _MapOfs show
  20.  
  21. _minx _miny translate 90 rotate
  22.  
  23. gsave
  24.  
  25. _code show
  26.  
  27. _minx _ptsize _code stringwidth pop sub 2 div add _miny _smallsize 1.25 mul sub _m
  28.  
  29. descFont _smallsize scalefont setfont
  30.  
  31. gsave
  32.  
  33. grestore
  34.  
  35. } if
  36.  
  37. -2 -2 r_l 0 1 r_l -3 0 r_l 0 2 r_l 3 0 r_l 0 1 r_l closepath eofill
  38.  
  39. _minx _smallsize 1.25 mul sub _miny _maxy add 2 div _m
  40.  
  41. _ptsize _minx _suboffset _miny vline stroke initclip
  42.  
  43. _ofsflag {
  44.  
  45. _ptsize _widx _miny vline stroke
  46.  
  47. _ptsize _minx _miny _ptsize _perdesc mul add hline stroke
  48.  
  49. fill grestore stroke
  50.  
  51. _ptsize dup _minx _miny _ptsize add rrectpath gsave _pergray setgray
  52.  
  53. _ptsize 1 add dup _minx .5 sub _miny .5 add _ptsize add rrectpath clip newpath
  54.  
  55. hairwid [.24 1.44] 0 setdash
  56.  
  57. gsave
  58.  
  59. /_maxy _miny _ptsize add def
  60.  
  61. /_widx _minx _ptsize _wid _em div mul add _suboffset def
  62.  
  63. /_maxx _minx _ptsize add def
  64.  
  65. /_wid xdf
  66.  
  67. /_MapWid xdf
  68.  
  69. /_ofsflag xdf
  70.  
  71. /_MapOfs xdf
  72.  
  73. /_char xdf
  74.  
  75. /_code xdf
  76.  
  77. /_minx xdf
  78.  
  79. /_miny xdf
  80.  
  81. /_charofs xdf
  82.  
  83. /_ptsize xdf
  84.  
  85. /_pergray xdf
  86.  
  87. Key_Map_Dict begin
  88.  
  89. /Key_Map_Char{
  90.  
  91. /Key_Get_XY{Key_Next_Char Key_Map_Dict begin curx cury end}B
  92.  
  93. Init_Key_Pos
  94.  
  95. /Init_Key_Pos{Key_Map_Dict begin /xpos 0 def /ypos 0 def per_to_pos /xpos -1 def end}B
  96.  
  97. {pop 0 Next_Line}if def per_to_pos end}B
  98.  
  99. /Key_Next_Char{Key_Map_Dict begin /xpos xpos 1 add dup num_x_pos ge
  100.  
  101. end
  102.  
  103. /Next_Line{/ypos ypos 1 add dup num_y_pos ge{pop 0 showpage _DoPageHeader}if def}B
  104.  
  105. /cury _GetTM ypos 1 add .12 mul _GetTM _GetBM sub mul sub def}B
  106.  
  107. /per_to_pos{/curx xpos .5 add .12 mul _GetRM _GetLM sub mul _GetLM add def
  108.  
  109. /num_x_pos 8 def /num_y_pos 8 def
  110.  
  111. /_adddescent{_ptsize _perdesc mul add}B
  112.  
  113. /_suboffset{_ofsflag {_charofs _ptsize mul _em div sub}if}B
  114.  
  115. /_perdesc _descent _em div def
  116.  
  117. /_perasc _ascent _em div def
  118.  
  119. /_smallsize 6 def
  120.  
  121. /Key_Map_Dict 37 dict def Key_Map_Dict begin
  122.  
  123. end}B
  124.  
  125. grestore
  126.  
  127. ibutwid mul ibutleft add twa exch _hdldsize mul ibutop sub neg _m show
  128.  
  129. /ibutwid ibutright ibutleft sub tw2 sub def
  130.  
  131. ibutleft twa ibutbot ibutright tws ibutop rectpath clip newpath
  132.  
  133. descFont _hdchsize scalefont setfont
  134.  
  135. gsave
  136.  
  137. _PageHeaderDict begin
  138.  
  139. /InsetShow{
  140.  
  141. end}B
  142.  
  143. grestore
  144.  
  145. butop boxsize .6 mul sub _m show
  146.  
  147. butwid 1 index stringwidth pop sub 2 div butleft add
  148.  
  149. descFont boxsize 3 div scalefont setfont
  150.  
  151. butleft butbot butright butop rectpath clip newpath
  152.  
  153. ibutleft ibutbot ibutright ibutop _ibut
  154.  
  155. /ibutbot butbot _smove add def
  156.  
  157. /ibutop butop _smove sub def
  158.  
  159. /ibutright right tws def
  160.  
  161. /ibutleft butright twa def
  162.  
  163. butleft butbot butright butop _rbut
  164.  
  165. gsave butcolor setgray fill grestore 0 setgray hairwid stroke
  166.  
  167. dx dy left top rrectpath
  168.  
  169. /clipheight boxsize _lmove 2 mul sub def 1 setlinewidth
  170.  
  171. /butright left butwid add twa def
  172.  
  173. /butbot top boxsize sub tws def
  174.  
  175. /butwid dx 3 div tw2 sub def
  176.  
  177. /dy boxsize tw2 add def
  178.  
  179. /dx right left sub def
  180.  
  181. /butleft left twa def
  182.  
  183. imagearea /butop top tws def
  184.  
  185. gsave
  186.  
  187. _PageHeaderDict begin
  188.  
  189. /_PageHeader{
  190.  
  191. end
  192.  
  193. /_hdchsize 10 def
  194.  
  195. /_hdldsize 12 def
  196.  
  197. /boxsize 57 def
  198.  
  199. /_PageHeaderDict 39 dict def _PageHeaderDict begin
  200.  
  201. grestore end}B
  202.  
  203. 1 setgray fill
  204.  
  205. _leftl _topl _l _leftl _bottoml _l closepath
  206.  
  207. left bottom _m left top _l right top _l _rightl _topl _l
  208.  
  209. _leftl _bottoml _rightl _topl rectpath butcolor setgray fill
  210.  
  211. .6 setgray fill
  212.  
  213. _lmove _smove sub _shadow
  214.  
  215. _lefts _bottoms _m _rightl _leftl sub _topl _bottoml sub
  216.  
  217. _smove _shadow 0 setgray fill
  218.  
  219. left bottom _m _rights _lefts sub _tops _bottoms sub
  220.  
  221. /_rights right _smove sub def
  222.  
  223. /_bottoms bottom _smove add def
  224.  
  225. /_lefts left _smove add def
  226.  
  227. /_tops top _smove sub def
  228.  
  229. /_rightl right _lmove sub def
  230.  
  231. /_bottoml bottom _lmove add def
  232.  
  233. /_leftl left _lmove add def
  234.  
  235. /_topl top _lmove sub def
  236.  
  237. rbutdict begin storerect gsave
  238.  
  239. /_rbut{
  240.  
  241. end
  242.  
  243. 0 _disty _move 2 mul add neg r_l closepath}B
  244.  
  245. _move dup r_l _distx 0 r_l 0 _disty r_l _move dup r_l
  246.  
  247. /_shadow{/_move xdf /_disty xdf /_distx xdf
  248.  
  249. /rbutdict 17 dict def rbutdict begin
  250.  
  251. grestore end}B
  252.  
  253. left bottom right top rectpath hairwid 0 setgray stroke
  254.  
  255. left _tops right top rectpath fill
  256.  
  257. left bottom _lefts top rectpath 0 setgray fill
  258.  
  259. left bottom right top rectpath 1 setgray fill
  260.  
  261. /_rights right _smove sub def
  262.  
  263. /_bottoms bottom _smove add def
  264.  
  265. /_lefts left _smove add def
  266.  
  267. /_tops top _smove sub def
  268.  
  269. ibutdict begin gsave storerect
  270.  
  271. /_ibut{
  272.  
  273. /ibutdict 13 dict def
  274.  
  275. end}B
  276.  
  277. grestore
  278.  
  279. _saveLeading _SetLeading _saveRM _SetRM _saveLM _SetLM
  280.  
  281. tws _SetRM _WrapSpaceShow
  282.  
  283. _hdldsize _SetLeading ( ) _SetSpace ibutleft twa _SetLM ibutright
  284.  
  285. /_saveLeading _GetLeading def /_saveRM _rightm def /_saveLM _leftm def
  286.  
  287. ibutwid mul ibutleft add twa exch _hdldsize mul ibutop sub neg _m
  288.  
  289. descFont _hdchsize scalefont setfont
  290.  
  291. _y _hdldsize mul sub rrectpath clip newpath
  292.  
  293. /_y xdf _hdldsize mul ibutwid exch ibutleft twa ibutop
  294.  
  295. /ibutwid ibutright ibutleft sub tw2 sub def
  296.  
  297. gsave
  298.  
  299. _PageHeaderDict begin
  300.  
  301. /NoticeShow{
  302.  
  303. {_NextLine}if show}forall end}B
  304.  
  305. {_IntToChar dup stringwidth pop currentpoint pop add _rightm ge
  306.  
  307. /_WrapShow{WrapDict begin
  308.  
  309. }forall end _saveLM _SetLM}B
  310.  
  311. dup show _space eq _first and {currentpoint pop _SetLM /_first false def}if
  312.  
  313. {_IntToChar dup stringwidth pop currentpoint pop add _rightm ge{_NextLine}if
  314.  
  315. /_WrapSpaceShow{WrapDict begin /_first true def /_saveLM _leftm def
  316.  
  317. /_IntToChar{WrapDict begin _ch exch 0 exch put _ch 1 string copy end}B
  318.  
  319. currentpoint _botm le {showpage _DoPageHeader}if pop end}B
  320.  
  321. /_NextLine{WrapDict begin _leftm _MoveX _leading neg _RMoveY
  322.  
  323. /_Per_RMoveX{XPer_to_Abs _RMoveX}B
  324.  
  325. /_Per_MoveX{XPer_to_Abs _GetLM add _MoveX}B
  326.  
  327. /Str_WidX_to_XPer{/_per xdf dup stringwidth pop Abs_to_XPer _per sub neg}B
  328.  
  329. /_per 0 def
  330.  
  331. /Abs_to_XPer{_GetRM _GetLM sub div}B
  332.  
  333. /XPer_to_Abs{_GetRM _GetLM sub mul}B
  334.  
  335. /_RMoveY{0 exch r_m}B
  336.  
  337. /_RMoveX{0 r_m}B
  338.  
  339. /_MoveY{currentpoint pop exch _m}B
  340.  
  341. /_MoveX{currentpoint exch pop _m}B
  342.  
  343. /_GetBM{WrapDict /_botm get}B
  344.  
  345. /_SetBM{/_botm _PutWrap}B
  346.  
  347. /_GetTM{WrapDict /_topm get}B
  348.  
  349. /_SetTM{/_topm _PutWrap}B
  350.  
  351. /_GetRM{WrapDict /_rightm get}B
  352.  
  353. /_SetRM{/_rightm _PutWrap}B
  354.  
  355. /_GetLM{WrapDict /_leftm get}B
  356.  
  357. /_SetLM{/_leftm _PutWrap}B
  358.  
  359. /_SetSpace{/_space _PutWrap}B
  360.  
  361. /_GetLeading{WrapDict /_leading get}B
  362.  
  363. /_ScaleFont{dup _SetLeading scalefont}B
  364.  
  365. /_SetLeading{/_leading _PutWrap}B
  366.  
  367. /_DoPageHeader{WrapDict begin PageHeader _leftm _topm _leading sub _m end}B
  368.  
  369. /_SetPageHeader{/PageHeader _PutWrap}B
  370.  
  371. _InitText
  372.  
  373. _leftm _topm _leading sub _m /PageHeader{}B end}B
  374.  
  375. imagearea /_topm top def /_leftm left def /_botm bottom def /_rightm right def
  376.  
  377. /_InitText{WrapDict begin
  378.  
  379. /_PutWrap{exch WrapDict 3 1 roll put}B
  380.  
  381. end
  382.  
  383. /_leading 12 def
  384.  
  385. /_space ( ) def
  386.  
  387. /_ch ( ) def
  388.  
  389. WrapDict begin
  390.  
  391. /WrapDict 31 dict def
  392.  
  393. /tws{6 sub}B
  394.  
  395. /twa{6 add}B
  396.  
  397. /tw2 12 def
  398.  
  399. /butcolor .9 def
  400.  
  401. /_smove 2 def
  402.  
  403. /_lmove 3 def
  404.  
  405. /_descent _em _ascent sub def
  406.  
  407. /_ascent _em _ascper mul def
  408.  
  409. /_ascper ^E def
  410.  
  411. /_em ^G def
  412.  
  413. /hline{_m 0 r_l}B
  414.  
  415. /vline{_m 0 exch r_l}B
  416.  
  417. /rrectpath{_m 1 index 0 r_l neg 0 exch r_l neg 0 r_l closepath}B
  418.  
  419. right bottom _l left bottom _l closepath end}B
  420.  
  421. /rectpath{Rect_Dict begin storerect left top _m right top _l
  422.  
  423. /Rect_Dict 5 dict def
  424.  
  425. /hairwid{hairline setlinewidth}B
  426.  
  427. /hairline 1 0 itransform dup mul exch dup mul add sqrt .24 lt{.25}{0}ifelse def
  428.  
  429. /descFont /|______Helvetica findfont def
  430.  
  431. (|______Helvetica) RF
  432.  
  433. _rr 8 add _rr storerect grestore}B
  434.  
  435. /imagearea{gsave clippath pathbbox 8 sub _rr 8 sub _rr 8 add
  436.  
  437. /_rr{4 1 roll}B
  438.  
  439. /storerect{/top xdf/right xdf/bottom xdf/left xdf}B
  440.  
  441. {erasepage initgraphics}ifelse/CurPage CurPage 1 add def end}B
  442.  
  443. /showpage{Dummy begin CorrectPage{systemdict /showpage get exec}
  444.  
  445. /CorrectPage{CurPage Last_Page gt Last_Page 9999 ne and{quit}if CurPage First_Page ge}B
  446.  
  447. /r_l{RTA _l}B
  448.  
  449. /r_m{RTA _m}B
  450.  
  451. /_m{_dr moveto}B
  452.  
  453. /_l{_dr lineto}B
  454.  
  455. /RCTA{3{RTA 6 2 roll}repeat}B
  456.  
  457. /RTA{exch currentpoint 4 1 roll add 3 1 roll add}B
  458.  
  459. /_dr{transform round exch round exch itransform}B
  460.  
  461. /xdf{exch def}B
  462.  
  463. /B{bind def}bind def
  464.  
  465.